home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / demos / fec / fec.dem next >
Text File  |  1999-09-16  |  330b  |  18 lines
  1. mode(-1)
  2. oldln=lines()
  3. lines(0)
  4. deff('[]=demoex(num)','exec(''SCI/demos/''+demolist(num,2))')
  5. demolist=[
  6. 'Graphics : Fec 1','fec/fec.ex1';
  7. 'Graphics : Fec 2','fec/fec.ex2'];
  8.  
  9. while %t then
  10.   num=x_choose(demolist(:,1),'Click to choose a demo');
  11.   if num=0 then 
  12.      lines(oldln(1))
  13.      return
  14.   else
  15.      demoex(num)
  16.   end,
  17. end
  18.